(make_pure_string): If we USE_TEXT_PROPERTIES, set the

interval of the pure string to NULL_INTERVAL.

diff --git a/src/alloc.c b/src/alloc.c
index 1e207b8f19bb69f72a1005b454c33861e921451e..f17db1ff07ca1fff4946ec4f6ee2540c26fe9e3a 100644 (file)
--- a/src/alloc.c
+++ b/src/alloc.c
@@ -1011,6 +1011,12 @@ make_pure_string (data, length)
   XSTRING (new)->size = length;
   bcopy (data, XSTRING (new)->data, length);
   XSTRING (new)->data[length] = 0;
+
+  /* We must give strings in pure storage some kind of interval.  So we
+     give them a null one.  */
+#if defined (USE_TEXT_PROPERTIES)
+  XSTRING (new)->intervals = NULL_INTERVAL;
+#endif
   pureptr += (size + sizeof (int) - 1)
             / sizeof (int) * sizeof (int);
   return new;